home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n07.arc / ALIGN.PAS < prev    next >
Pascal/Delphi Source File  |  1989-03-13  |  518b  |  24 lines

  1. PROGRAM Alignment_demo;
  2. {$A-}
  3. VAR
  4.   X1 : Byte;
  5.   Y1 : Byte;
  6.   Z1 : Word ABSOLUTE X1;
  7. VAR
  8.   X2 : Byte;
  9. VAR
  10.   Y2 : Byte;
  11.   Z2 : Word ABSOLUTE X2;
  12.   dummy : byte;
  13. BEGIN
  14.   FillChar(X2, Ofs(dummy) - Ofs(X1), $FF);
  15.   Z1 := $0101;
  16.   Z2 := $0202;
  17.   WriteLn('X1=',X1,' Y1=',Y1);
  18.   WriteLn('X2=',X2,' Y2=',Y2, ' (Y2 should equal 2)');
  19.   WriteLn('Note that the offsets below are all EVEN.');
  20.   WriteLn('Offset of X1=',Ofs(X1));
  21.   WriteLn('Offset of X2=',Ofs(X2));
  22.   WriteLn('Offset of Y2=',Ofs(Y2));
  23. END.
  24.